home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
aie8911.zip
/
V2.ARI
< prev
next >
Wrap
Text File
|
1989-08-27
|
1KB
|
42 lines
/***************** the system - v. 2 ****************************/
/***************** the test *************************************/
test :- process_housing_unit( 1 ).
/************* end the test *************************************/
%%%%%%%%%%%%%%%% process_housing_unit %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
:- init_ops.
/*
data ([ name: order_date,
def : $day salesman calls in order$,
representation : ( Year, Month, Day) ].
*/
stub [ call : process_housing_unit( X ) ,
purpose: $processes a housing unit$].
:- turn( process_housing_unit, on).
:- show( process_housing_unit, on).
process_housing_unit( X ) :-
data_collected_q( X ),
put_in_sample( X ).
process_housing_unit( X ) :-
write_error([ $No data for $, X]).
%%%%%%%%%%%% end process_housing_unit %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
stub [ call : data_collected_q( Housing_unit ),
purpose: $decides if data was collected for Housing_unit$].
stub [ call : put_in_sample( Housing_unit ),
purpose: $puts data into sample for used for CPI$].
/************* end the system - v. 2 ****************************/